library(dplyr); library(readr); library(tidyr); library(ggplot2); library(stringr)
df <- read_tsv("speakers.csv")
results <- read_tsv("results.tsv")
correspondence <- read_tsv("correspondence.tsv")
results %>%
left_join(correspondence) %>%
left_join(df) %>%
filter(!grepl("[tʃrlnm]", folVowel),
!grepl("[tʃrlnm]", prevVowel)) %>%
mutate(repetition = ifelse(repetition == "--undefined--", "", repetition),
repetition = paste(context, repetition),
folVowDur = as.double(ifelse(folVowDur == "--undefined--",NA, folVowDur)),
geminate = ifelse(grepl("[ː:]", stop),"+g", "-g"),
aff_type = ifelse(grepl("[sz]", stop),"dent", NA),
aff_type = ifelse(grepl("[ʃʒšžǯ]", stop),"alv", aff_type),
aff_type = ifelse(grepl("ɬ", stop),"lat", aff_type),
aff_type = ifelse(grepl("χ", stop),"uv", aff_type),
affric = ifelse(grepl("ɬ", stop),"affricate", affric),
affric = ifelse(grepl("χ", stop),"affricate", affric),
aff_type = ifelse(grepl("χ", stop),"uv", aff_type),
aff_type = factor(aff_type, levels = c("dent", "alv", "lat", "uv")),
affric = factor(affric, levels = c("plain", "affricate")),
voice = ifelse(voice == "voiced", "+v", "-v")) %>%
mutate(fric = fric * 1000,
postfric = postfric*1000,
folVowDur = folVowDur*1000,
closdur = closdur*1000,
VOT = fric + postfric,
cd_n = closdur/folVowDur,
vot_n = VOT/folVowDur,
utterance = paste0(context, "_", repetition),
poa = factor(poa, levels = c("bilabial", "dental", "velar", "uvular")),
c_type = ifelse(glott == "glottalic", "ej", voice),
c_type = ifelse(geminate == "+g", paste0(c_type, ",", "+g"), c_type),
c_type = factor(c_type, levels = c("+v", "-v", "ej", "-v,+g", "ej,+g"))) ->
final_df
During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated.
speaker <- unique(final_df[, 31:32])
speaker <- speaker[complete.cases(speaker),]
final_df %>%
filter(id == unlist(speaker[1, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[1, 1],
speaker[1, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[2, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[2, 1],
speaker[2, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[3, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[3, 1],
speaker[3, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[4, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[4, 1],
speaker[4, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[5, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[5, 1],
speaker[5, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[6, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[6, 1],
speaker[6, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[7, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[7, 1],
speaker[7, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[8, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[8, 1],
speaker[8, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[9, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[9, 1],
speaker[9, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[10, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[10, 1],
speaker[10, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[11, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[11, 1],
speaker[11, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[12, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[12, 1],
speaker[12, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[13, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[13, 1],
speaker[13, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[14, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[14, 1],
speaker[14, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[15, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[15, 1],
speaker[15, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[16, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[16, 1],
speaker[16, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[17, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[17, 1],
speaker[17, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[18, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[18, 1],
speaker[18, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[19, 1]), position == "medial") %>%
ggplot(aes(c_type, closdur, color = poa, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (ms)", x = "", caption = paste("medial position, based on",
speaker[19, 1],
speaker[19, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated. I added a new lines with 30 and 160 ms from (L&C 2001)
final_df %>%
filter(id == unlist(speaker[1, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[1, 1],
speaker[1, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[2, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[2, 1],
speaker[2, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[3, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[3, 1],
speaker[3, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[4, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[4, 1],
speaker[4, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[5, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[5, 1],
speaker[5, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[6, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[6, 1],
speaker[6, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[7, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[7, 1],
speaker[7, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[8, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[8, 1],
speaker[8, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[9, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[9, 1],
speaker[9, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[10, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[10, 1],
speaker[10, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[11, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[11, 1],
speaker[11, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[12, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[12, 1],
speaker[12, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[13, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[13, 1],
speaker[13, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[14, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[14, 1],
speaker[14, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[15, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[15, 1],
speaker[15, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[16, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[16, 1],
speaker[16, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[17, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[17, 1],
speaker[17, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[18, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[18, 1],
speaker[18, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[19, 1]), position == "medial") %>%
ggplot(aes(c_type, VOT, color = poa, label = stop))+
geom_hline(yintercept = 30, lty = 2)+
geom_hline(yintercept = 160, lty = 2)+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "", caption = paste("medial position, based on",
speaker[19, 1],
speaker[19, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated.
final_df %>%
filter(id == unlist(speaker[1, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[1, 1],
speaker[1, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[2, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[2, 1],
speaker[2, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[3, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[3, 1],
speaker[3, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[4, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[4, 1],
speaker[4, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[5, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[5, 1],
speaker[5, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[6, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[6, 1],
speaker[6, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[7, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[7, 1],
speaker[7, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[8, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[8, 1],
speaker[8, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[9, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[9, 1],
speaker[9, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[10, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[10, 1],
speaker[10, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[11, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[11, 1],
speaker[11, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[12, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[12, 1],
speaker[12, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[13, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[13, 1],
speaker[13, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[14, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[14, 1],
speaker[14, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[15, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[15, 1],
speaker[15, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[16, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[16, 1],
speaker[16, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[17, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[17, 1],
speaker[17, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[18, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[18, 1],
speaker[18, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[19, 1]), position == "medial") %>%
ggplot(aes(closdur, VOT, color = c_type, label = stop))+
geom_text(show.legend = F)+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (ms)", x = "CD (ms)", caption = paste("medial position, based on",
speaker[19, 1],
speaker[19, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated.
final_df %>%
filter(id == unlist(speaker[1, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[1, 1],
speaker[1, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[2, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[2, 1],
speaker[2, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[3, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[3, 1],
speaker[3, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[4, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[4, 1],
speaker[4, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[5, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[5, 1],
speaker[5, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[6, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[6, 1],
speaker[6, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[7, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[7, 1],
speaker[7, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[8, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[8, 1],
speaker[8, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[9, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[9, 1],
speaker[9, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[10, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[10, 1],
speaker[10, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[11, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[11, 1],
speaker[11, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[12, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[12, 1],
speaker[12, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[13, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[13, 1],
speaker[13, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[14, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[14, 1],
speaker[14, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[15, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[15, 1],
speaker[15, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[16, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[16, 1],
speaker[16, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[17, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[17, 1],
speaker[17, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[18, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[18, 1],
speaker[18, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[19, 1]), position == "medial") %>%
ggplot(aes(c_type, cd_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "CD (normalized)", x = "", caption = paste("medial position, based on",
speaker[19, 1],
speaker[19, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated. I added a new lines with 30 and 160 ms from (L&C 2001)
final_df %>%
filter(id == unlist(speaker[1, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[1, 1],
speaker[1, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[2, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[2, 1],
speaker[2, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[3, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[3, 1],
speaker[3, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[4, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[4, 1],
speaker[4, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[5, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[5, 1],
speaker[5, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[6, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[6, 1],
speaker[6, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[7, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[7, 1],
speaker[7, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[8, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[8, 1],
speaker[8, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[9, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[9, 1],
speaker[9, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[10, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[10, 1],
speaker[10, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[11, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[11, 1],
speaker[11, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[12, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[12, 1],
speaker[12, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[13, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[13, 1],
speaker[13, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[14, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[14, 1],
speaker[14, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[15, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[15, 1],
speaker[15, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[16, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[16, 1],
speaker[16, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[17, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[17, 1],
speaker[17, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[18, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[18, 1],
speaker[18, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[19, 1]), position == "medial") %>%
ggplot(aes(c_type, vot_n, color = poa))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "", caption = paste("medial position, based on",
speaker[19, 1],
speaker[19, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
During the presentation I’ve filtered out the 0 values, but here I leave them. All of them should be investigated.
final_df %>%
filter(id == unlist(speaker[1, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[1, 1],
speaker[1, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[2, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[2, 1],
speaker[2, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[3, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[3, 1],
speaker[3, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[4, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[4, 1],
speaker[4, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[5, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[5, 1],
speaker[5, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[6, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[6, 1],
speaker[6, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[7, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[7, 1],
speaker[7, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[8, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[8, 1],
speaker[8, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[9, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[9, 1],
speaker[9, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[10, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[10, 1],
speaker[10, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[11, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[11, 1],
speaker[11, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[12, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[12, 1],
speaker[12, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[13, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[13, 1],
speaker[13, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[14, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[14, 1],
speaker[14, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[15, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[15, 1],
speaker[15, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[16, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[16, 1],
speaker[16, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[17, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[17, 1],
speaker[17, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[18, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[18, 1],
speaker[18, 2],
"speaker"))+
facet_grid(repetition~affric+poa)
final_df %>%
filter(id == unlist(speaker[19, 1]), position == "medial") %>%
ggplot(aes(cd_n, vot_n, color = c_type))+
geom_point()+
theme_bw()+
theme(legend.position="top")+
labs(y = "VOT (normalized)", x = "CD (normalized)", caption = paste("medial position, based on",
speaker[19, 1],
speaker[19, 2],
"speaker"))+
facet_grid(repetition~affric+poa)